pragma License (GPL);
--
-- test.adb
--
-- Copyright (C) 2012 - Thibault BUREL
--
-- This file is part of DRK.BigRat.
--
-- DRK.BigRat is free software: you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation, either version 3 of the License, or
-- (at your option) any later version.
--
-- DRK.BigRat is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with DRK.BigRat.  If not, see <http://www.gnu.org/licenses/>
--

with Ada.Text_IO;

with AUnit.Run;
with AUnit.Reporter.Text;
with AUnit.Test_Suites;

with DRK.BigInt.Test;
with DRK.BigRat.Test;

procedure Test is

   use AUnit.Test_Suites;

   function Suite return Access_Test_Suite
   is
      Result : constant Access_Test_Suite := AUnit.Test_Suites.New_Suite;
   begin
      Result.Add_Test (DRK.BigInt.Test.Suite);
      Result.Add_Test (DRK.BigRat.Test.Suite);
      return Result;
   end Suite;

   procedure Run is new AUnit.Run.Test_Runner (Suite);

   Reporter : AUnit.Reporter.Text.Text_Reporter;

begin

   Ada.Text_IO.Put_Line
     ("Chunck size " & Natural'Image (DRK.BigInt.Digit_Size) & " bits");

   Run (Reporter);

end Test;
